home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 20 / 64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64 / listing 4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  220b  |  13 lines
  1. 100 poke 53270,peek(53270)  or 16
  2. 110 print chr$(147)chr$(18);
  3. 120 print"[129]";
  4. 130 for l=1 to 22:printchr$(65);:next
  5. 135 for t=1 to 500:next
  6. 140 print"";
  7. 145 for t=1 to 500:next
  8. 150 print"[144]bitte eine taste"
  9. 160 get a$:if a$="" then 160
  10. 170 x=int(rnd(1)*16)
  11. 180 poke 53282,x
  12. 190 goto 160
  13.